home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 9 / CorelDraw9 Disco 1.iso / Draw / Cont_rel / Rellenos / Degradado / Radial / rings.csc < prev    next >
Encoding:
Text File  |  1998-11-24  |  789 b   |  25 lines
  1. REM Favorite : Fill
  2.  
  3. WITHOBJECT "CorelDraw.Automation.9"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects FALSE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  8
  10.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  14
  11.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  27
  12.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  32
  13.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  40
  14.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  58
  15.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  64
  16.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  68
  17.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  92
  18.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  100
  19.     .ApplyFountainFill 1, 0, 0, 1281, 256, 7, 3, 50
  20.     .ResumePainting 
  21.     .EndOfRecording 
  22. END WITHOBJECT
  23.  
  24.  
  25.